700 POKE1020,2:POKE1021,17:POKE1022,1:POKE1023,38
900 GOSUB6000:PRINT"[147][144]":POKE53281,C%(1):POKE53280,C%(0)
1000 POKE646,C%(4)
1010 PRINTWT$;:FORI=2TO17:PRINT"[221]"SPC(38)"[221]";:NEXT:PRINTWB$;:POKE646,C%(3)
1050 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE646,C%(5):SYS51203:GOTO2500
1055 POKE2023,125:POKE56295,C%(3):           RETURN
1060 :
1100 POKE783,PEEK(783)AND254:POKE781,Y%:POKE782,X%:SYS65520:RETURN
1200 :
1300 :
2500 POKE646,C%(2):PRINT"       [204][207][193][196][211][212][193][210] [195]OLOR [211]ELECTION        ":R%=.
2505 POKE646,C%(5):SYS51200:PRINT"[198]ROM HERE, YOU CAN SELECT THE COLORS
2510 [153]"THAT YOU FIND MOST LEGIBLE FOR READ-
2515 PRINT"ING TEXT.  [212]HESE COLORS ARE ONLY AC-
2520 [153]"TIVE WHEN YOU ARE ACTUALLY READING AN
2525 PRINT"ARTICLE.  [217]OU MAY CHANGE THE COLORS OF
2530 [153]"ANY OF THE FOLLOWING:
2535 PRINT"      [212]HE [194]ORDER: ";:POKE646,C%(.):PRINT"  [146]";:POKE646,C%(5):PRINT"_"
2540 PRINT"  [212]HE [194]ACKGROUND:
2545 [153]"  (null)HE (null)ITLE (null)INE: ";:[151]646,C%(2):[153]"  ":[151]646,C%(5)
2550 [153]"(null)HE LENOMMAND (null)ENU: ";:[151]646,C%(3):[153]"  ":[151]646,C%(5)
2555 [153]"    (null)HE (null)EXT PEEKOX: ";:[151]646,C%(4):[153]"  ":[151]646,C%(5)
2560 [153]" (null)HE (null)EXT RIGHT$TSELF:   ":[151]646,C%(3):[153]WT$;
2565 [153]"(null) (null)SE LEN(null)(null)(null) KEYS/MID$OYSTICK TO MOVE THE   (null)";
2570 [153]"(null) ARROWS, AND (null)PACEBAR/PEEKUTTON TO EXIT. (null)";
2575 [129]I[178]1[164]2:[153]"(null)                                      (null)";:[130]
2580 [153][200](WB$,39);:[129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[141]1055
2585 X%[178]3:Y%[178]22:[141]1100:[153]"";:[129]I[178].[164]15:[151]646,I:[153]"  ";:[130]:[153]
2590 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[151]646,C%(3):[153]"^";
2600 [161]K$:J%[178][168][194](J)[175]31:[139]K$[178]""[175]J%[178].[167]2600
2601 [151]B,0:[139]K$[178]"ON"[176]J%[178]1[167]2650
2602 [139]K$[178]""[176]J%[178]2[167]2670
2603 [139]K$[178]"CMD"[176]J%[178]4[167]2610
2604 [139]K$[178]""[176]J%[178]8[167]2630
2605 [139]J%[178]16[176]K$[178]" "[167]10000
2606 [137]2600
2610 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" "
2612 C%(R%)[178]C%(R%)[171]1:[139]C%(R%)[179].[167]C%(R%)[178]15
2615 [139]R%[177]1[167][139]C%(R%)[178]C%(1)[167]2612
2617 [139]R%[178]1[167][139]C%(1)[178]C%(2)[176]C%(1)[178]C%(3)[176]C%(1)[178]C%(4)[176]C%(1)[178]C%(5)[167]2612
2618 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]"^"
2620 [145]R%[170]1[141]2810,2820,2830,2840,2850,2860
2622 [139]R%[179][177]1[167]X%[178]19:Y%[178]10[170]R%:[141]1100:[151]646,C%(R%):[153]"  ":[151]646,C%(5)
2625 [137]2600
2630 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100::[153]" "
2632 C%(R%)[178]C%(R%)[170]1:[139]C%(R%)[177]15[167]C%(R%)[178].
2635 [139]R%[177]1[167][139]C%(R%)[178]C%(1)[167]2632
2637 [139]R%[178]1[167][139]C%(1)[178]C%(2)[176]C%(1)[178]C%(3)[176]C%(1)[178]C%(4)[176]C%(1)[178]C%(5)[167]2632
2640 [137]2618
2650 X%[178]21:Y%[178]10[170]R%:[141]1100:[153]" ":X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" "
2652 R%[178]R%[171]1:[139]R%[179].[167]R%[178]5
2655 X%[178]21:Y%[178]10[170]R%:[141]1100:[151]646,C%(5):[153]"_":X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100
2656 [151]646,C%(3):[153]"^":[137]2600
2670 X%[178]21:Y%[178]10[170]R%:[141]1100:[153]" ":X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" "
2672 R%[178]R%[170]1:[139]R%[177]5[167]R%[178].
2675 [137]2655
2700 [139][194](788)[178]49[167][151]S[170]24,15:[158]49158:[151]56325,49
2702 [142]
2705 [139][194](788)[178]49[167]2715
2710 [158]49155:[151]S[170]4,0:[151]S[170]11,0:[151]S[170]18,0:[151]S[170]5,8:[151]S[170]6,0:[151]S[170]24,15
2715 [142]
2800 X%[178]15:Y%[178]22:[141]1100:[151]646,C%(3):[153]MU$:[151]646,C%(5):[137]2000
2810 [151]V[170]32,C%(.):[142]
2820 [151]V[170]33,C%(1):[142]
2830 [151]1020,.:[151]1021,.:[151]1022,.:[151]1023,39:[151]646,C%(2):[158]51203
2831 [151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,C%(5):[142]
2840 [151]1020,19:[151]1021,21:[151]1022,.:[151]1023,39:[151]646,C%(3):[158]51203
2841 [151]1020,24:[151]1021,24:[158]51203:[151]1020,2:[151]1021,17:[151]1022,1
2842 [151]1023,38:[151]56176,C%(3):[151]56215,C%(3):[151]56216,C%(3):[151]56255,C%(3)
2843 [151]646,C%(5):[142]
2850 [151]646,C%(4):[151]1020,1:[151]1021,1:[151]1022,.:[151]1023,39:[158]51203
2851 [151]1020,18:[151]1021,18:[158]51203:CM[178]55296:TN[178]39:FT[178]40:F[178]C%(4):[129]I[178]2[164]17
2852 [151]CM[170]I[172]FT,F:[151]CM[170]I[172]FT[170]TN,F:[130]:[151]1020,2:[151]1021,17:[151]1022,1
2853 [151]1023,38:[151]646,C%(5):[142]
2860 [151]646,C%(5):[158]51203:[129]I[178].[164]4:X%[178]19:Y%[178]I[170]10:[141]1100:[151]646,C%(I)
2865 [139]I[179][177]1[167][153]"";
2870 [153]"  ":[130]:[151]646,C%(5):[142]
2900 :
3000 :
5907 [151]1020,2:[151]1021,18:[151]1022,1:[151]1023,38:[158]51200:[153]"FOR";:[158]51203
5910 [151]S[170]4,.:[151]S[170]11,.:[151]S[170]18,.
5999 :
6000 V[178]53248:R[178]V[170]17:S[178]V[170]1024:J[178]56320
6010 [134]C%(5):[159]4,8,4,"COLOR.FILE,P,R"
6012 [161]#4,A$,B$:[129]X[178]0[164]5:[132]4,C%(X):[130]:[160]4:[142]
6037 [134]C%(5):[159]15,8,15,"I0":[159]8,8,8,"COLOR.FILE"
6038 [152]15,"P"[199](8)[199](1)[199](0)[199](1):[129]X[178]0[164]5:[132]8,C%(X):[130]
6039 [160]8:[160]15
6040 WT$[178]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
6042 WB$[178]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
6060 [142]
10000 [143]   DONE SELECTION
10050 [151]646,C%(5)
10100 [158]51200:[153]"ATNRE THESE SELECTIONS WHAT YOU WANT?"
10110 [153]"[(null)/(null)] OR (null) TO (null)UIT"
10200 [151]198,0:[146]198,1:[161]A$
10210 [139]A$[179][177]"Y"[175]A$[179][177]"N"[175]A$[179][177]"Q"           [167]10200
10220 [139]A$[178]"Q"[167]12070
10300 [139]A$[178]"N"[167][158]51200:[137]2500
10350 [137]12000
10360 :
10400 [158]51200:[153]"(null)LEASE MAKE SURE SIDE"SI"OF YOUR"
10410 [153]"(null)(null)ATNSTR$(null)(null)ATN(null) DISK IS IN THE DRIVE."
10420 [153]"(null)RESS A KEY WHEN YOU ARE READY."
10422 [153]"((null)RESS (null) TO (null)UIT)"
10430 [151]198,0:[146]198,1:[161]A$:              [139]A$[178]"Q"[167]10000
10500 [159]15,8,15,"I0":[159]8,8,8,"COLOR.FILE":[132]15,ER,ER$,NS,SE
10505 FL[178]0:[139]ER[179]20[167]10600
10510 [160]15:[160]8:[158]51200:[153]"STR$ISK VALRROR!!!!!"
10515 [153]"(null)LEASE CHECK YOUR DISK DRIVE.":FL[178]1
10520 [129]DL[178]1[164]2500:[130]DL:[142]
10530 :
10600 [152]15,"P"[199](8)[199](1)[199](0)[199](1)
10610 [129]X[178]0[164]5:[152]8,C%(X);[199](13);       :[130]
10620 [160]8:[160]15
10630 [158]51200:[153]"LENOLOR FILE IS NOW ON THE DISK."
10635 [142]
10640 [147]"HELLO CONNECT",8
12000 [143]   DO THE THINGS
12010 [141]10400:[139]FL[178]1[167]12010
12020 [139]SI[178]1[167]SI[178]2:[137]12040
12030 SI[178]1:[159]15,8,15,"S0:COLOR.FILE":[160]15:[159]4,8,4,"COLOR.FILE,P,W"
12040 [129]X[178]0[164]5:[152]4,C%(X):[130]:[160]4
12050 [153]"(null)ROCESS IS NOW COMPLETE."
12060 [153]"(null)OW RETURNING TO (null)(null)ATNSTR$(null)(null)ATN(null)..."
12070 [147]"HELLO CONNECT",8
63000 D[178][194](186):N$[178]"COLOR SELECT":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]